home *** CD-ROM | disk | FTP | other *** search
/ El Mac 7 / El Mac 7.iso / De la revista / Ghostscript / files / ps2ascii.ps < prev    next >
Encoding:
Text File  |  1994-04-25  |  14.7 KB  |  488 lines  |  [TEXT/gsVR]
  1. %    Copyright (C) 1991, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  19. % Instead, ASCII information is written to stdout.  The idea is similar to
  20. % Glenn Reid's `distillery', only a lot more simple-minded, and less robust.
  21.  
  22. % If SIMPLE is defined, just the text is written, with a guess at line
  23. % breaks and word spacing.  If SIMPLE is not defined, lines are written
  24. % to stdout as follows:
  25. %
  26. %    C <r> <g> <b>
  27. %        Indicate the current color. (NOT IMPLEMENTED YET)
  28. %
  29. %    F <height> <width> (<fontname>)
  30. %        Indicate font height and width of a space.
  31. %
  32. %    P
  33. %        Indicate the end of the page.
  34. % 
  35. %    R <x> <y> <width> <height>
  36. %        Display a rectangle. (NOT IMPLEMENTED YET)
  37. %
  38. %    S <x> <y> (<string>) <width>
  39. %        Display a string.
  40. %
  41. % <r>, <g>, and <b> are RGB values expressed as integers between 0 and 1000.
  42. % <width> and <height> are integer dimensions in units of 1/720".
  43. % <x> and <y> are integer coordinates, in units of 1/720", with the origin
  44. %   at the lower left.
  45. % <string> and <fontname> are strings represented with the standard
  46. %   PostScript escape conventions.
  47. % Note that future versions of this program may add other output elements,
  48. %   so programs parsing the output should be prepared to ignore elements
  49. %   that they do not recognize.
  50.  
  51. % Note that this code will only work in all cases if systemdict is writable
  52. % and if `binding' the definitions of operators defined as procedures
  53. % is deferred.  For this reason, it is normally invoked with
  54. %    gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT ps2ascii.ps
  55.  
  56. % Thanks to J Greely <jgreely@cis.ohio-state.edu> for improvements
  57. % to this code, and to Jerry Whelan <jerryw@abode.ccd.bnl.gov> for
  58. % motivating other improvements.
  59.  
  60. /QUIET true def
  61. systemdict wcheck { systemdict } { userdict } ifelse begin
  62. /.max where { pop } { /.max { 2 copy lt { exch } if pop } bind def } ifelse
  63. /SIMPLE dup where { pop true } { false } ifelse def
  64. /setglobal where
  65.  { pop currentglobal /setglobal load true setglobal }
  66.  { { } }
  67. ifelse
  68.  
  69. % Define a way to store and retrieve integers that survives save/restore.
  70. /.i.string0 (0               ) def
  71. /.i.string .i.string0 length string def
  72. /.iget { cvi } bind def
  73. /.iput { exch //.i.string exch copy cvs pop } bind def
  74. /.inew { //.i.string0 dup length string copy } bind def
  75.  
  76. % Disable the display operators.
  77.  
  78. /eofill { newpath } odef
  79. /erasepage { } odef
  80. /fill { newpath } odef
  81. /stroke { newpath } odef
  82.  
  83. % The image operators must read the input, but do nothing.
  84.  
  85. /colorimage where
  86.  { pop /colorimage { gsave nulldevice //colorimage grestore } odef
  87.  } if
  88. /image { gsave nulldevice //image grestore } odef
  89. /imagemask { gsave nulldevice //imagemask grestore } odef
  90.  
  91. % Redefine the end-of-page operators.
  92.  
  93. /copypage { SIMPLE { (\014) } { (P\n) } ifelse //print } odef
  94. /showpage { copypage erasepage initgraphics } odef
  95.  
  96. % Output the current color if necessary.
  97. /.color.r .inew def
  98.   .color.r -1 .iput        % make sure we write the color at the beginning
  99. /.color.g .inew def
  100. /.color.b .inew def
  101. /.showcolor
  102.  { SIMPLE not
  103.     { currentrgbcolor
  104.       1000 mul round cvi
  105.       3 1 roll 1000 mul round cvi
  106.       exch 1000 mul round cvi
  107.         % Stack: b g r
  108.       dup //.color.r .iget eq
  109.       2 index //.color.g .iget eq and
  110.       3 index //.color.b .iget eq and
  111.        { pop pop pop
  112.        }
  113.        { (C ) //print
  114.      dup //.color.r exch .iput .show==only
  115.          ( ) //print dup //.color.g exch .iput .show==only
  116.          ( ) //print dup //.color.b exch .iput .show==only
  117.      (\n) //print
  118.        }
  119.       ifelse
  120.     }
  121.    if
  122.  } bind def
  123. % Some programs that interpret the output of ps2ascii aren't prepared to
  124. % handle the C command, so ****** WE DISABLE IT ******.
  125. /.showcolor { } def
  126.  
  127. % Redefine `show'.
  128.  
  129. % Set things up so our output will be in tenths of a point, with origin at
  130. % lower left.  This isolates us from the peculiarities of individual devices.
  131.  
  132. /.show.ident.matrix matrix def
  133. /.show.ident
  134. % { //.show.ident.matrix defaultmatrix
  135. %        % Assume the original transformation is well-behaved.
  136. %   0.1 0 2 index dtransform abs exch abs .max /.show.scale exch def
  137. %   0.1 dup 3 -1 roll scale
  138.  { gsave initmatrix
  139.         % Assume the original transformation is well-behaved.
  140.    0.1 0 dtransform abs exch abs .max /.show.scale exch def
  141.    0.1 dup scale .show.ident.matrix currentmatrix
  142.    grestore
  143.  } bind def
  144. /.coord
  145.  { transform .show.ident itransform
  146.    exch round cvi exch round cvi
  147.  } odef
  148. /.dcoord
  149.  {        % Transforming distances is trickier, because
  150.         % the coordinate system might be rotated.
  151.    .show.ident pop
  152.    exch 0 dtransform
  153. %     dup 0 ne { dup mul exch dup mul add sqrt } { pop abs } ifelse
  154. dup mul exch dup mul add sqrt
  155.      .show.scale div round cvi
  156.    exch 0 exch dtransform
  157. %     exch dup 0 ne { dup mul exch dup mul add sqrt } { pop abs } ifelse
  158. dup mul exch dup mul add sqrt
  159.      .show.scale div round cvi
  160.  } odef
  161.  
  162. % Remember the current X, Y, and height.
  163. /.show.x .inew def
  164. /.show.y .inew def
  165. /.show.height .inew def
  166. % Remember the last character of the previous string; if it was a
  167. % hyphen preceded by a letter, we didn't output the hyphen.
  168. /.show.last (\000) def
  169. % Remember the current font.
  170. /.font.name 130 string def
  171. /.font.name.length .inew def
  172. /.font.height .inew def
  173. /.font.width .inew def
  174.  
  175. % We have to redirect stdout somehow....
  176. /.show.stdout { (%stdout) (w) file } bind def
  177.  
  178. % Make sure writing will work even if a program uses =string.
  179. /.show.string =string length string def
  180. /.show.=string =string length string def
  181. /.show==only
  182.  { //=string //.show.=string copy pop
  183.    dup type /stringtype eq
  184.     { dup length //.show.string length le
  185.        { dup rcheck { //.show.string copy } if
  186.        } if
  187.     } if
  188.    .show.stdout exch write==only
  189.    //.show.=string //=string copy pop
  190.  } odef
  191.  
  192. /.showfont    % <string> .showfont <string>
  193.  { gsave
  194.     % Try getting the height and width of the font from the FontBBox.
  195.      currentfont /FontBBox .knownget not { {0 0 0 0} } if
  196.      aload pop exch 4 -1 roll sub 3 1 roll exch sub
  197.      2 copy .max 0 ne
  198.       { currentfont /FontMatrix get dtransform
  199.       }
  200.       {    pop pop
  201.     % Fonts produced by dvips, among other applications, have
  202.     % BuildChar procedures that bomb out when given unexpected
  203.     % characters, and there is no way to determine whether a given
  204.     % character will do this.  So for Type 1 fonts, we measure a
  205.     % typical character ('X'); for others, we punt.
  206.     currentfont /FontType get 1 eq
  207.      { (X) stringwidth pop dup 1.3 mul
  208.      }
  209.      {    % No safe way to get the character size.  Punt.
  210.        0 0
  211.      }
  212.     ifelse
  213.       }
  214.      ifelse .dcoord exch
  215.      currentfont /FontName .knownget not { () } if
  216.      dup type /stringtype ne { //.show.string cvs } if
  217.    grestore
  218.     % Stack: height width fontname
  219.    SIMPLE
  220.     { pop pop //.show.height exch .iput }
  221.     { 2 index //.font.height .iget eq
  222.       2 index //.font.width .iget eq and
  223.       1 index //.font.name 0 //.font.name.length .iget getinterval eq and
  224.        { pop pop pop
  225.        }
  226.        { (F ) //print
  227.      3 -1 roll dup //.font.height exch .iput .show==only ( ) //print
  228.          exch dup //.font.width exch .iput .show==only ( ) //print
  229.      dup length //.font.name.length exch .iput
  230.          //.font.name cvs .show==only (\n) //print
  231.        }
  232.       ifelse
  233.     }
  234.    ifelse
  235.  } odef
  236.  
  237. % Define the letters -- characters which, if they occur followed by a hyphen
  238. % at the end of a line, cause the hyphen and line break to be ignored.
  239. /.letter.chars 100 dict def
  240. mark
  241.   65 1 90 { dup 32 add } for
  242. counttomark { StandardEncoding exch get .letter.chars exch dup put } repeat
  243. pop
  244.  
  245. % Define a set of characters which, if they occur at the start of a line,
  246. % are taken as indicating a paragraph break.
  247. /.break.chars 50 dict def
  248. mark
  249.   /bullet /dagger /daggerdbl /periodcentered /section
  250. counttomark { .break.chars exch dup put } repeat
  251. pop
  252.  
  253. % Define character translation to ASCII.
  254. % We have to do this for the entire character set.
  255. /.char.map 500 dict def
  256. /.chars.def { counttomark 2 idiv { .char.map 3 1 roll put } repeat pop } def
  257.     % Encode the printable ASCII characters.
  258. mark 32 1 126
  259.  { 1 string dup 0 4 -1 roll put
  260.    dup 0 get StandardEncoding exch get exch
  261.  }
  262. for .chars.def
  263.     % Encode accents.
  264. mark
  265.   /acute (') /caron (^) /cedilla (,) /circumflex (^)
  266.   /dieresis (") /grave (`) /ring (*) /tilde (~)
  267. .chars.def
  268.     % Encode the ISO accented characters.
  269. mark 192 1 255
  270.  { ISOLatin1Encoding exch get =string cvs
  271.    dup 0 1 getinterval 1 index dup length 1 sub 1 exch getinterval
  272.    .char.map 2 index known .char.map 2 index known and
  273.     { .char.map 3 -1 roll get .char.map 3 -1 roll get concatstrings
  274.       .char.map 3 1 roll put
  275.     }
  276.     { pop pop pop
  277.     }
  278.    ifelse
  279.  }
  280. for .chars.def
  281.     % Encode the remaining standard and ISO alphabetic characters.
  282. mark
  283.   /AE (AE) /Eth (DH) /OE (OE) /Thorn (Th)
  284.   /ae (ae) /eth (dh)
  285.   /ffi (ffi) /ffl (ffl) /fi (fi) /fl (fl)
  286.   /germandbls (ss) /oe (oe) /thorn (th)
  287. .chars.def
  288.     % Encode the other standard and ISO characters.
  289. mark
  290.   /brokenbar (|) /bullet (*) /copyright ((C)) /currency (#)
  291.   /dagger (#) /daggerdbl (##) /degree (o) /divide (/) /dotaccent (.)
  292.   /dotlessi (i)
  293.   /ellipsis (...) /emdash (--) /endash (-) /exclamdown (!)
  294.   /florin (f) /fraction (/)
  295.   /guillemotleft (<<) /guillemotright (>>)
  296.   /guilsingleft (<) /guilsingright (>) /hungarumlaut ("") /logicalnot (~)
  297.   /macron (_) /minus (-) /mu (u) /multiply (*)
  298.   /ogonek (,) /onehalf (1/2) /onequarter (1/4) /onesuperior (1)
  299.   /ordfeminine (-a) /ordmasculine (-o)
  300.   /paragraph (||) /periodcentered (*) /perthousand (o/oo) /plusminus (+-)
  301.   /questiondown (?) /quotedblbase (") /quotedblleft (") /quotedblright (")
  302.   /quotesinglbase (,) /quotesingle (') /registered ((R))
  303.   /section ($) /sterling (#)
  304.   /threequarters (3/4) /threesuperior (3) /trademark ((TM)) /twosuperior (2)
  305.   /yen (Y)
  306. .chars.def
  307.     % Encode a few common Symbol characters.
  308. mark
  309.   /asteriskmath (*) /copyrightsans ((C)) /copyrightserif ((C))
  310.   /greaterequal (>=) /lessequal (<=) /registersans ((R)) /registerserif ((R))
  311.   /trademarksans ((TM)) /trademarkserif ((TM))
  312. .chars.def
  313.  
  314. % Write out a string.  If it ends in a letter and a hyphen,
  315. % don't write the hyphen, and set .show.last to a hyphen;
  316. % otherwise, set .show.last to the character (or \000 if it was a hyphen).
  317. /.show.write    % <string>
  318.  { dup length 1 ge
  319.     { dup dup length 1 sub get
  320.       dup 45 eq        % hyphen
  321.        { 1 index length 1 gt
  322.           { 1 index dup length 2 sub get }
  323.       { //.show.last 0 get }
  324.      ifelse
  325.      currentfont /Encoding get exch get
  326.      //.letter.chars exch known
  327.       {    % Remove the hyphen
  328.         exch dup length 1 sub 0 exch getinterval exch
  329.       }
  330.       { pop 0
  331.       }
  332.      ifelse
  333.        }
  334.       if
  335.       //.show.last 0 3 -1 roll put
  336.     }
  337.    if
  338.     { dup currentfont /Encoding get exch get
  339.       dup //.char.map exch .knownget
  340.        { .show.stdout exch writestring pop pop
  341.        }
  342.        { currentfont /Encoding dup StandardEncoding eq
  343.      exch ISOLatin1Encoding eq or
  344.       {    % Untranslated character in standard encoding
  345.         pop .show.stdout exch write
  346.       }
  347.       {    % Character in non-standard encoding, substitute
  348.         pop pop .show.stdout (*) writestring
  349.       }
  350.      ifelse
  351.        }
  352.       ifelse
  353.     }
  354.    forall
  355.  } odef
  356. /.showstring1
  357.  { currentpoint .coord
  358.    3 -1 roll dup stringwidth 1 index 0 rmoveto
  359.    .dcoord pop
  360.     % Stack: x y string width
  361.    SIMPLE
  362.     { 2 index //.show.y .iget ne
  363.        {    % Try to figure out whether we have a line break
  364.         % or a paragraph break.
  365.      2 index //.show.y .iget sub abs
  366.      //.show.height .iget 1.3 mul ge
  367.      2 index length 0 gt
  368.       { 2 index 0 get currentfont /Encoding get exch get
  369.         //.break.chars exch known { pop true } if
  370.       }
  371.      if
  372.       { (\n\n)    % Paragraph
  373.       }
  374.       { ( )        % Line
  375.       }
  376.      ifelse //print
  377.      //.show.y 3 index .iput
  378.          //.show.x 4 index .iput
  379.        }
  380.        {    % If the word processor split a hyphenated word within
  381.         % the same line, put out the hyphen now.
  382.      //.show.last 0 get 45 eq { (-) //print } if
  383.        }
  384.       ifelse
  385.       3 index //.show.x .iget 10 add gt
  386.        { ( ) //print
  387.        }
  388.       if
  389.       4 1 roll .show.write pop add //.show.x exch .iput
  390.     }
  391.     { (S ) //print
  392.       4 -1 roll .show==only ( ) //print
  393.       3 -1 roll .show==only ( ) //print
  394.       exch .show==only ( ) //print
  395.       .show==only (\n) //print
  396.     }
  397.    ifelse
  398.  } odef
  399. /.showstring
  400.  { dup () eq { pop } { .showstring1 } ifelse
  401.  } bind def
  402.      
  403. % Redefine all the string display operators.
  404.  
  405. /show
  406.  { .showfont .showcolor .showstring
  407.  } odef
  408.  
  409. % We define all the other operators in terms of .show1.
  410. /.show1.string ( ) def
  411. /.show1 { //.show1.string exch 0 exch put //.show1.string .showstring } odef
  412. /ashow
  413.  { .showfont .showcolor
  414.    { .show1 2 copy rmoveto } forall
  415.    pop pop
  416.  } odef
  417. /awidthshow
  418.  { .showfont .showcolor
  419.     { dup .show1 4 index eq { 4 index 4 index rmoveto } if
  420.       2 copy rmoveto
  421.     }
  422.    forall
  423.    pop pop pop pop pop
  424.  } odef
  425. /widthshow
  426.  { .showfont .showcolor
  427.    //.show1.string 0 4 -1 roll put
  428.     { //.show1.string search not { exit } if
  429.       .showstring .showstring
  430.       2 index 2 index rmoveto
  431.     } loop
  432.    .showstring pop pop
  433.  } odef
  434. /kshow
  435.  { .showfont .showcolor
  436.     { .show1 dup exec } forall pop
  437.  } odef
  438. % We don't really do the right thing with the Level 2 show operators,
  439. % but we do something semi-reasonable.
  440. /xshow where
  441.  { pop /xshow { pop show } bind odef
  442.  } if
  443. /yshow where
  444.  { pop /yshow { pop show } bind odef
  445.  } if
  446. /xyshow where
  447.  { pop /xyshow { pop show } bind odef
  448.  } if
  449. /glyphshow where
  450.  { pop /glyphshow
  451.     { currentfont /Encoding .knownget not { {} } if
  452.       0 1 2 index length 1 sub
  453.        {    % Stack: glyph encoding index
  454.      2 copy get 3 index eq { exch pop exch pop null exit } if
  455.        }
  456.       for null eq { (X) dup 0 4 -1 roll put show } { pop } ifelse
  457.     } bind odef
  458.  } if
  459.  
  460. % Redirect the printing operators.
  461.  
  462. /.stdout (_temp_.out) (w) file def
  463. /.stderr (_temp_.err) (w) file def
  464. /print { //.stdout exch writestring } odef
  465. /=only { //.stdout exch write=only } odef
  466. /==only { //.stdout exch write==only } odef
  467.  
  468. end
  469.  
  470. % Bind the operators we just defined, and all the others if we didn't
  471. % do it before.  Also reenable 'bind' for future files.
  472.  
  473. .bindoperators
  474. NOBIND currentdict systemdict ne and
  475.  { systemdict begin .bindoperators end }
  476. if
  477. NOBIND
  478.  { /bind /.bind load def }
  479. if
  480.  
  481. % Make systemdict read-only if it wasn't already.
  482.  
  483. systemdict wcheck { systemdict readonly pop } if
  484.  
  485. % Restore the current local/global VM mode.
  486.  
  487. exec
  488.